10 REM ********************************
11 REM * BALKENDIAGRAMME/PBC ISSUE #8 *
12 REM ********************************
13 REM
14 REM 13 ZUFALLSZAHLEN
15 REM
16 DIM GP(13),Z(13):AN=13:FORG=1TO13:GP(G)=INT(RND(1)*20)+10:NEXT
17 REM
18 REM HOECHSTE ZAHL ERMITTELN
19 REM
20 A=GP(1):FORG=2TOAN:IFA<GP(G)THENA=GP(G)
21 NEXT
22 REM
23 REM PROZENTE ERRECHNEN
24 REM
25 B=((A-15)*100)/A:FORG=1TOAN:Z(G)=GP(G)-((GP(G)*B)/100):NEXTG
26 REM
27 REM DIAGRAMM AUF BILDSCHIRM
28 REM
29 FORG=1TOAN:FORQ=1TOZ(G):POKE211,G*3-2:POKE214,20-Q:SYS58732
30 PRINT"  [146]":NEXTQ,G
31 REM
32 REM ZAHLEN UNTER DIE BALKEN
33 REM
34 FORG=1TOAN:POKE211,G*3-3:POKE214,22:SYS58732:PRINTGP(G):NEXTG
35 REM
36 REM ENDLOSSCHLEIFE
37 REM
38 GOTO38